library(tidyverse) datos <- read.csv(file = "../ENTREGA 3/accidentes.csv")
resumen <- datos |> count(sexo)
graf<- ggplot(resumen) + geom_col(aes(x=sexo, y =n, fill = sexo))+ ggthemes::scale_fill_colorblind();graf
plotly::ggplotly(graf)